home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CSPSL.z / CSPSL
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSPPPPSSSSLLLL((((3333FFFF))))                                                            CCCCSSSSPPPPSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSPSL   - CSISL solves the complex symmetric system A * X = B using the
  10.      factors computed by CSPFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CSPSL(AP,N,KPVT,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAAPPPP COMPLEX(N*(N+1)/2)
  20.         the output from CSPFA.
  21.  
  22.      NNNN INTEGER
  23.         the order of the matrix  A .  KVPT    INTEGER(N)
  24.         the pivot vector from CSPFA.
  25.  
  26.      BBBB COMPLEX(N)
  27.         the right hand side vector.  On Return
  28.  
  29.      BBBB the solution vector  X . Error Condition
  30.  
  31.      AAAA division by zero may occur if  CSPCO  has set RCOND .EQ. 0.0 or  CSPFA
  32.      has set INFO .NE. 0  .  To compute  INVERSE(A) * C  where  C  is a matrix
  33.      with  P  columns
  34.         CALL CSPFA(AP,N,KVPT,INFO)
  35.         IF (INFO .NE. 0) GO TO ...
  36.         DO 10 J = 1, P
  37.         CALL CSPSL(AP,N,KVPT,C(1,J)) 10 CONTINUE LINPACK.  This version dated
  38.      08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
  39.      Subroutines and Functions BLAS CAXPY,CDOTU Fortran IABS
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.